10 GOTO 11:"07/01/82/0001": REM DON'T^ADD^ANY^LINE^NUMBERED^SMALLER^THAN^10.
11 P$ = "PROGRAM NAME": REM TYPE^ACTUAL^NAME^IN^QUOTES.
12 L = PEEK(103) + PEEK(104) *256 +9: FOR I = L TO L +7:DAY$ = DAY$ + CHR$( PEEK(I)): NEXT :NMBR = 1000 *( PEEK(L +9) -48) +100 *( PEEK(L +10) -48) +10 *( PEEK(L +11) -48) + PEEK(L +12) -48
13 HOME : VTAB 22: PRINT P$: FOR I = 1 TO LEN(P$): PRINT "-";: NEXT : PRINT : PRINT "RUN NUMBER: ";NMBR: PRINT "LAST RUN ON: ";DAY$;".": PRINT : PRINT "TODAY'S DATE:__/__/__";: HTAB 13: INPUT ":";NUDAY$: IF LEN(NUDAY$) < >8 THEN 13
14 FOR I = 1 TO 8:A$(I) = MID$ (NUDAY$,I,1): NEXT :MO = VAL(A$(1)) *10 + VAL(A$(2)):DA = VAL(A$(4)) *10 + VAL(A$(5)): IF (MO <1 OR MO >12) OR (DA <1 OR DA >31) OR A$(3) < >"/" OR A$(6) < >"/" THEN 13
15 FOR I = 1 TO 8: POKE L +I -1, ASC(A$(I)): NEXT :NMBR = NMBR +1: POKE L +12,48 +NM - INT(NM/10) *10: POKE L +11,48 + INT((NM - INT(NM/100) *100)/10): POKE L +10,48 + INT((NM - INT(NM/1000) *1000)/100): POKE L +9,48 + INT(NM/1000)